Option Explicit
Sub J_Sample012()
    Dim myCBar As CommandBar
    Dim myCbarCnt As CommandBarControl
    'sWAutoshape
    With Worksheets(1).Shapes.AddShape(Type:=msoShape5pointStar, _
        Left:=0, Top:=0, Width:=30, Height:=30)
        .Fill.ForeColor.SchemeColor = 10
        .CopyPicture
        .Delete
    End With
    Set myCBar = Application.CommandBars("Standard")	'wuC
    Set myCbarCnt = myCBar.Controls(1)			'w
    myCbarCnt.PasteFace
    MsgBox "wܧ󧹦usWvsϹA{bnN٭C"
    myCBar.Reset						'٭쥻p
    Set myCBar = Nothing				'
    Set myCbarCnt = Nothing
End Sub
